home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Magazine / SoundLab / Studio16add / includes / Digital.macs next >
Encoding:
Text File  |  1997-11-14  |  860 b   |  51 lines
  1. StackOn    MACRO
  2.     movem.l    d2-d7/a2-a6,-(sp)
  3.     ENDM
  4.  
  5. StackOff MACRO
  6.     movem.l    (sp)+,d2-d7/a2-a6
  7.     ENDM
  8.  
  9. Call    MACRO
  10.     jsr    _LVO\1(a6)
  11.     ENDM
  12.  
  13. DUMPSTRING    MACRO    ;DUMPSTRING "String",LabelID  NB: labID must be UNIC!
  14.  
  15.     IFD    DODUMP    ;in source: DODUMP SET 1 to enable debug dump
  16.  
  17.     movem.l    d0-d7/a0-a6,-(sp)
  18.  
  19.     move.l    $4.w,a6
  20.     moveq    #0,d0
  21.     lea    .debLibName\2(pc),a1
  22.     jsr    -552(a6)        ;open dos.library version 0
  23.     tst.l    d0
  24.     beq.b    .debEnd\2
  25.  
  26.     move.l    d0,a6
  27.     jsr    -60(a6)            ;default output handler
  28.     move.l    d0,d1
  29.     beq.b    .close\2
  30.  
  31.     move.l    #.string\2,d2
  32.     move.l    #.stringSize\2,d3
  33.     jsr    -48(a6)            ;write string to handler
  34.  
  35. .close\2    lea    (a6),a1
  36.     move.l    $4.w,a6
  37.     jsr    -414(a6)        ;close dos.library again
  38.  
  39.     bra.b    .debEnd\2
  40.  
  41. .debLibName\2    dc.b    "dos.library",0
  42. .string\2        dc.b    "DEBUG DUMP: ",27,"[1m",\1,27,"[0m",10
  43. .stringSize\2    = *-.string\2
  44.     even
  45.  
  46. .debEnd\2    movem.l    (sp)+,d0-d7/a0-a6
  47.  
  48.     ENDC
  49.  
  50.     ENDM
  51.